home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 January: Mac OS SDK / Dev.CD Jan 99 SDK1.toast / Development Kits / Interfaces&Libraries / Universal / Interfaces / PInterfaces / EPPC.p < prev    next >
Encoding:
Text File  |  1998-08-17  |  4.1 KB  |  156 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        EPPC.p
  3.  
  4.      Contains:    High Level Event Manager Interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Release:    Universal Interfaces 3.2
  8.  
  9.      Copyright:    © 1988-1998 by Apple Computer, Inc., all rights reserved
  10.  
  11.      Bugs?:        For bug reports, consult the following page on
  12.                  the World Wide Web:
  13.  
  14.                      http://developer.apple.com/bugreporter/
  15.  
  16. }
  17. {$IFC UNDEFINED UsingIncludes}
  18. {$SETC UsingIncludes := 0}
  19. {$ENDC}
  20.  
  21. {$IFC NOT UsingIncludes}
  22.  UNIT EPPC;
  23.  INTERFACE
  24. {$ENDC}
  25.  
  26. {$IFC UNDEFINED __EPPC__}
  27. {$SETC __EPPC__ := 1}
  28.  
  29. {$I+}
  30. {$SETC EPPCIncludes := UsingIncludes}
  31. {$SETC UsingIncludes := 1}
  32.  
  33. {$IFC UNDEFINED __ERRORS__}
  34. {$I Errors.p}
  35. {$ENDC}
  36. {$IFC UNDEFINED __APPLETALK__}
  37. {$I AppleTalk.p}
  38. {$ENDC}
  39. {$IFC UNDEFINED __FILES__}
  40. {$I Files.p}
  41. {$ENDC}
  42. {$IFC UNDEFINED __PPCTOOLBOX__}
  43. {$I PPCToolbox.p}
  44. {$ENDC}
  45. {$IFC UNDEFINED __PROCESSES__}
  46. {$I Processes.p}
  47. {$ENDC}
  48. {$IFC UNDEFINED __EVENTS__}
  49. {$I Events.p}
  50. {$ENDC}
  51.  
  52.  
  53. {$PUSH}
  54. {$ALIGN MAC68K}
  55. {$LibExport+}
  56.  
  57.  
  58. CONST
  59.                                                                 {  postOptions currently supported  }
  60.     receiverIDMask                = $0000F000;
  61.     receiverIDisPSN                = $00008000;
  62.     receiverIDisSignature        = $00007000;
  63.     receiverIDisSessionID        = $00006000;
  64.     receiverIDisTargetID        = $00005000;
  65.     systemOptionsMask            = $00000F00;
  66.     nReturnReceipt                = $00000200;
  67.     priorityMask                = $000000FF;
  68.     nAttnMsg                    = $00000001;
  69.  
  70.                                                                 {  constant for return receipts  }
  71.     HighLevelEventMsgClass        = 'jaym';
  72.     rtrnReceiptMsgID            = 'rtrn';
  73.  
  74.     msgWasPartiallyAccepted        = 2;
  75.     msgWasFullyAccepted            = 1;
  76.     msgWasNotAccepted            = 0;
  77.  
  78.  
  79. TYPE
  80.     TargetIDPtr = ^TargetID;
  81.     TargetID = RECORD
  82.         sessionID:                LONGINT;
  83.         name:                    PPCPortRec;
  84.         location:                LocationNameRec;
  85.         recvrName:                PPCPortRec;
  86.     END;
  87.  
  88.     TargetIDHandle                        = ^TargetIDPtr;
  89.     TargetIDHdl                            = TargetIDHandle;
  90.     SenderID                            = TargetID;
  91.     SenderIDPtr                         = ^SenderID;
  92.     HighLevelEventMsgPtr = ^HighLevelEventMsg;
  93.     HighLevelEventMsg = RECORD
  94.         HighLevelEventMsgHeaderLength: UInt16;
  95.         version:                UInt16;
  96.         reserved1:                UInt32;
  97.         theMsgEvent:            EventRecord;
  98.         userRefcon:                UInt32;
  99.         postingOptions:            UInt32;
  100.         msgLength:                UInt32;
  101.     END;
  102.  
  103.     HighLevelEventMsgHandle                = ^HighLevelEventMsgPtr;
  104.     HighLevelEventMsgHdl                = HighLevelEventMsgHandle;
  105. {$IFC TYPED_FUNCTION_POINTERS}
  106.     GetSpecificFilterProcPtr = FUNCTION(contextPtr: UNIV Ptr; msgBuff: HighLevelEventMsgPtr; {CONST}VAR sender: TargetID): BOOLEAN;
  107. {$ELSEC}
  108.     GetSpecificFilterProcPtr = ProcPtr;
  109. {$ENDC}
  110.  
  111.     GetSpecificFilterUPP = UniversalProcPtr;
  112.  
  113. CONST
  114.     uppGetSpecificFilterProcInfo = $00000FD0;
  115.  
  116. FUNCTION NewGetSpecificFilterProc(userRoutine: GetSpecificFilterProcPtr): GetSpecificFilterUPP;
  117.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  118.     INLINE $2E9F;
  119.     {$ENDC}
  120.  
  121. FUNCTION CallGetSpecificFilterProc(contextPtr: UNIV Ptr; msgBuff: HighLevelEventMsgPtr; {CONST}VAR sender: TargetID; userRoutine: GetSpecificFilterUPP): BOOLEAN;
  122.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  123.     INLINE $205F, $4E90;
  124.     {$ENDC}
  125. FUNCTION PostHighLevelEvent({CONST}VAR theEvent: EventRecord; receiverID: UNIV Ptr; msgRefcon: UInt32; msgBuff: UNIV Ptr; msgLen: UInt32; postingOptions: UInt32): OSErr;
  126.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  127.     INLINE $3F3C, $0034, $A88F;
  128.     {$ENDC}
  129. FUNCTION AcceptHighLevelEvent(VAR sender: TargetID; VAR msgRefcon: UInt32; msgBuff: UNIV Ptr; VAR msgLen: UInt32): OSErr;
  130.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  131.     INLINE $3F3C, $0033, $A88F;
  132.     {$ENDC}
  133. FUNCTION GetProcessSerialNumberFromPortName({CONST}VAR portName: PPCPortRec; VAR pPSN: ProcessSerialNumber): OSErr;
  134.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  135.     INLINE $3F3C, $0035, $A88F;
  136.     {$ENDC}
  137. FUNCTION GetPortNameFromProcessSerialNumber(VAR portName: PPCPortRec; {CONST}VAR pPSN: ProcessSerialNumber): OSErr;
  138.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  139.     INLINE $3F3C, $0046, $A88F;
  140.     {$ENDC}
  141. FUNCTION GetSpecificHighLevelEvent(aFilter: GetSpecificFilterUPP; contextPtr: UNIV Ptr; VAR err: OSErr): BOOLEAN;
  142.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  143.     INLINE $3F3C, $0045, $A88F;
  144.     {$ENDC}
  145.  
  146. {$ALIGN RESET}
  147. {$POP}
  148.  
  149. {$SETC UsingIncludes := EPPCIncludes}
  150.  
  151. {$ENDC} {__EPPC__}
  152.  
  153. {$IFC NOT UsingIncludes}
  154.  END.
  155. {$ENDC}
  156.